
Partial Class Budget_Affirmations
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        SetupJavaScript()
        If Not Me.IsPostBack Then
            UserAuthorization.CheckPagePermission(Cdm.DataCore.UserSecurity.Permission.PermissionType.CaseAffirmations, "VIEW")
            Me.CaseAffirmations1.PrimaryObject = EntityController.GetParticipant()
            Me.submitAffirmations.Visible = UserAuthorization.HasUpdatePermission(Me.CaseAffirmations1.EntityPermissionType)
        End If
        EntityController.SetSubNavTabsFinancial(Me.EditCaseSubNav2)
        EntityController.SetFinancialTab(Me.FinancialSubName, Me.EditCaseSubNav2)
    End Sub

    Private Sub SetupJavaScript()
        EntityController.JavaScriptAddChildDiv(Me.mainDiv.ClientID, 100)
        EntityController.JavaScriptSetFixedHeight(30)
    End Sub

    Protected Sub submitAffirmations_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles submitAffirmations.Click
        Me.CaseAffirmations1.UpdateAffirmations()
    End Sub

    Protected Sub EditCaseSubNav2_ChangeMenu(ByVal sender As Object, ByVal e As System.EventArgs) Handles EditCaseSubNav2.ChangeMenu
        EntityController.ReturnToCasePersonalPage(EditCaseSubNav2)
    End Sub
End Class
